home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MSI Options 3.xpl < prev    next >
Text File  |  2001-04-26  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH 1"="System\Software Installation\Windows Installer"
  5. "UIPATH 2"="System\Debugging"
  6. "NAME"="MSI Logging Options"
  7. "VERSION"="2.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Log all errors"
  10. "TEXT 2"="Log out-of-memory errors"
  11. "TEXT 3"="Log all warnings (not fatal)"
  12. "TEXT 4"="Log user requests"
  13. "TEXT 5"="Log when starting commands"
  14. "DESCRIPTION 1"="By default, the setup process for an application determines whether the process maintains a log for itself.  This option allows you to enable the logging for the setup of an applications, regardless of this default."
  15. "DESCRIPTION 2"="If at least one option is turned on, a logfile for every installation will be created in your TEMP directory in the form "MSI*.LOG" where "*" is a randomly generated name."
  16. "DESCRIPTION 3"="To disable logging for all applications again, clear all fields."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=" "
  21. "COMMENT 2"="By default, every application sets itself if the setup should be logged or not. By setting an option here, you can enable the logging for all setups regardless if it's activated by the application or not."
  22. "COMMENT 3"="Thanks to Umesh Reghuram for his suggestions!"
  23.  
  24.  
  25. sPathSys="HKLM\Software\Policies\Microsoft\Windows\Installer\"
  26. sPathUsr="HKCU\Software\Policies\Microsoft\Windows\Installer\"
  27.  
  28. sV1="Logging" 'STR - sys
  29. Sub Plugin_Initialize 
  30.  s=RegReadValue(sPathSys & sV1)
  31.  
  32.  if InStr(1,s,"e")>0 then setuielement 1,true
  33.  if InStr(1,s,"m")>0 then setuielement 2,true
  34.  if InStr(1,s,"w")>0 then setuielement 3,true
  35.  if InStr(1,s,"u")>0 then setuielement 4,true
  36.  if InStr(1,s,"a")>0 then setuielement 5,true
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  s=""
  44.  
  45.  if GetUIElement(1)=true then s=s & "e"
  46.  if GetUIElement(2)=true then s=s & "m"
  47.  if GetUIElement(3)=true then s=s & "w"
  48.  if GetUIElement(4)=true then s=s & "u"
  49.  if GetUIElement(5)=true then s=s & "a"
  50.  
  51.  if len(s)>0 then
  52.     'Enable logging
  53.     Call RegWriteValue(sPathSys & sV1,s,1)
  54.  else
  55.     'Disable logging
  56.     s=RegReadValue(sPathSys & sV1)
  57.     if IsEmpty(s)=false then
  58.        Call RegDeleteValue(sPathSys & sV1)
  59.     end if
  60.  end if
  61.  
  62. End Sub
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.